home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00028.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  678 b   |  28 lines
  1. on enterFrame
  2.   global currenttxt, currenttitle, gmovie, clip1
  3.   puppetPalette("movie menu palette")
  4.   cursor(4)
  5.   if the soundEnabled = 0 then
  6.     puppetSprite(48, 1)
  7.     set the castNum of sprite 48 to cast "sound2.bmp"
  8.     updateStage()
  9.   end if
  10.   puppetSprite(27, 1)
  11.   set gmovie to clip1
  12.   set the text of cast "base title" to currenttitle
  13.   set the text of cast "base txt" to currenttxt
  14.   if the soundEnabled = 1 then
  15.     set songnum to random(2)
  16.     sound playFile 2, "song" & songnum
  17.   end if
  18.   set the castNum of sprite 27 to gmovie
  19.   updateStage()
  20.   set the movieRate of sprite 27 to 0.19999999999999998
  21.   cursor(-1)
  22. end
  23.  
  24. on exitFrame
  25.   global fixpal
  26.   patchpal()
  27. end
  28.